10 'COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. ALL RIGHTS RESERVED.
15 POKE 55,0:POKE56,32:CLR:' RESERVE AREA ABOVE 8192
20 (null) $A000,$B000:(null)USR 1,0:(null)SQR 1
30 'WRITE "SCR.BASS,P,W"
40 (null)RND $2000
42 (null) 1
43 (null)T1=$A000:' STORAGE AREA UNDER ROM
44 (null)T2=$A400
55 (null)CONT (null)RECALL
70 (null)STORE (null)SYS #0:' ZERO LOOP COUNTER
80 FOR I=0 TO 999:'REM INLINE BASIC CODE
90 (null)CLR 1024+I:(null)/ (null)T1+I
95 (null)CLR 55296+I:(null)/ (null)T2+I
100 NEXT
110 (null)NOT
200 (null)RECALL (null)CLR 1:(null)GET:AND #254:(null)/ 1:' SWITCH TO RAM
210 FOR I=0 TO 999:'REM INLINE BASIC CODE
215 (null)CLR (null)T1+I:(null)/ 1024+I
220 (null)CLR (null)T2+I:(null)/ 55296+I
225 NEXT
292 (null)TAB(:(null)/ 1:(null)NOT
999 (null) 2